home *** CD-ROM | disk | FTP | other *** search
Unknown | 1999-01-18 | 673 b |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 05 43 6c 61 73 73 0a 4b | 65 79 54 72 61 70 70 65 |.Class.K|eyTrappe|
|00000010| 72 a4 01 a4 01 a8 08 8f | 06 07 00 0a 4b 65 79 54 |r.......|....KeyT|
|00000020| 72 61 70 70 65 72 a8 01 | 06 43 61 6e 76 61 73 00 |rapper..|.Canvas.|
|00000030| 02 10 4b 65 79 49 44 20 | 61 73 20 69 6e 74 65 67 |..KeyID |as integ|
|00000040| 65 72 00 11 4b 65 79 4e | 61 6d 65 20 61 73 20 73 |er..KeyN|ame as s|
|00000050| 74 72 69 6e 67 00 00 00 | 03 09 4d 6f 75 73 65 44 |tring...|..MouseD|
|00000060| 6f 77 6e 0d 04 0d 04 0d | 39 46 75 6e 63 74 69 6f |own.....|9Functio|
|00000070| 6e 20 4d 6f 75 73 65 44 | 6f 77 6e 28 58 20 41 73 |n MouseD|own(X As|
|00000080| 20 49 6e 74 65 67 65 72 | 2c 20 59 20 41 73 20 49 | Integer|, Y As I|
|00000090| 6e 74 65 67 65 72 29 20 | 41 73 20 42 6f 6f 6c 65 |nteger) |As Boole|
|000000a0| 61 6e 10 64 69 6d 20 69 | 20 61 73 20 69 6e 74 65 |an.dim i| as inte|
|000000b0| 67 65 72 02 64 6f 0e 66 | 6f 72 20 69 3d 30 20 74 |ger.do.f|or i=0 t|
|000000c0| 6f 20 31 32 36 20 69 66 | 20 6b 65 79 62 6f 61 72 |o 126 if| keyboar|
|000000d0| 64 2e 61 73 79 6e 63 6b | 65 79 44 6f 77 6e 28 69 |d.asynck|eyDown(i|
|000000e0| 29 20 74 68 65 6e 14 4b | 65 79 4e 61 6d 65 3d 4b |) then.K|eyName=K|
|000000f0| 65 79 54 6f 4e 61 6d 65 | 28 69 29 07 4b 65 79 49 |eyToName|(i).KeyI|
|00000100| 44 3d 69 0a 6d 65 2e 72 | 65 66 72 65 73 68 0c 72 |D=i.me.r|efresh.r|
|00000110| 65 74 75 72 6e 20 66 61 | 6c 73 65 06 65 6e 64 20 |eturn fa|lse.end |
|00000120| 69 66 04 6e 65 78 74 04 | 6c 6f 6f 70 0c 45 6e 64 |if.next.|loop.End|
|00000130| 20 46 75 6e 63 74 69 6f | 6e 09 4d 6f 75 73 65 44 | Functio|n.MouseD|
|00000140| 72 61 67 01 00 01 00 03 | 29 53 75 62 20 4d 6f 75 |rag.....|)Sub Mou|
|00000150| 73 65 44 72 61 67 28 58 | 20 41 73 20 49 6e 74 65 |seDrag(X| As Inte|
|00000160| 67 65 72 2c 20 59 20 41 | 73 20 49 6e 74 65 67 65 |ger, Y A|s Intege|
|00000170| 72 29 00 07 45 6e 64 20 | 53 75 62 05 50 61 69 6e |r)..End |Sub.Pain|
|00000180| 74 05 00 05 00 0b 18 53 | 75 62 20 50 61 69 6e 74 |t......S|ub Paint|
|00000190| 28 67 20 41 73 20 47 72 | 61 70 68 69 63 73 29 10 |(g As Gr|aphics).|
|000001a0| 64 69 6d 20 6c 20 61 73 | 20 69 6e 74 65 67 65 72 |dim l as| integer|
|000001b0| 16 67 2e 66 6f 72 65 43 | 6f 6c 6f 72 3d 72 67 62 |.g.foreC|olor=rgb|
|000001c0| 28 30 2c 30 2c 30 29 26 | 67 2e 43 6c 65 61 72 52 |(0,0,0)&|g.ClearR|
|000001d0| 65 63 74 20 30 2c 30 2c | 6d 65 2e 77 69 64 74 68 |ect 0,0,|me.width|
|000001e0| 2d 31 2c 6d 65 2e 68 65 | 69 67 68 74 2d 31 27 67 |-1,me.he|ight-1'g|
|000001f0| 2e 64 72 61 77 72 65 63 | 74 20 30 2c 20 30 2c 20 |.drawrec|t 0, 0, |
|00000200| 6d 65 2e 77 69 64 74 68 | 2d 31 2c 6d 65 2e 68 65 |me.width|-1,me.he|
|00000210| 69 67 68 74 2d 31 13 67 | 2e 54 65 78 74 46 6f 6e |ight-1.g|.TextFon|
|00000220| 74 3d 22 47 65 6e 65 76 | 61 22 0d 67 2e 54 65 78 |t="Genev|a".g.Tex|
|00000230| 74 53 69 7a 65 3d 31 30 | 18 6c 3d 67 2e 53 74 72 |tSize=10|.l=g.Str|
|00000240| 69 6e 67 57 69 64 74 68 | 28 4b 65 79 4e 61 6d 65 |ingWidth|(KeyName|
|00000250| 29 12 6c 3d 6d 65 2e 77 | 69 64 74 68 2f 32 2d 28 |).l=me.w|idth/2-(|
|00000260| 6c 2f 32 29 31 67 2e 44 | 72 61 77 53 74 72 69 6e |l/2)1g.D|rawStrin|
|00000270| 67 20 6b 65 79 4e 61 6d | 65 2c 6c 2c 6d 65 2e 68 |g keyNam|e,l,me.h|
|00000280| 65 69 67 68 74 2f 32 2b | 67 2e 54 65 78 74 41 73 |eight/2+|g.TextAs|
|00000290| 63 65 6e 74 2f 32 07 45 | 6e 64 20 53 75 62 00 00 |cent/2.E|nd Sub..|
|000002a0| 00 | |. | |
+--------+-------------------------+-------------------------+--------+--------+